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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 
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oe 
he 
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Ps ag ne bane Pe ms be bene as bmn Bt Oo bn Bang 
1 el eel 
ts 


tt ee 
ta be 
at fame 
os be 


Ww bola 
Wiel W 
wa WW 
‘al Whi 
la ld 
Whe lel 
ble! i) 
Ww WW WW 
Ww WW WW 
WWW = WWWW 
WWWW = WWWW 
Wel a 
Wh Vel a 


Ot ee ne Be ne a as a ed ae a a bn 
i oonlLaad 


ee ae 
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14-Sep-1984 PASRTLeS *Spacunines. 5 2;1 (1) 
; 1 0001 MODULE PASSWRITE_REALE_G ( RIATLE ‘Write a G ~floeting in E | 
: § §008 TDENT = '1-002' : e: pasieince. ‘B32 Edit: SBL1002 
eB he 
: $ 000g : i eee eeeeeeeReeee eee eee eHRHeeeeeeeeeeeeeeeeereneenteeneeneeeeereeeeeeeeee 
; '® * 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
te | 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Baio : >» ALL RIGHTS RESERVED. * 
; ! * 
; \¢ Bote 1 !e noe SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH ® 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 3018 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
é + oole : ” TRANSFERRED. * 
é {® * 
} Ty 0019 1 !# | INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 20 0020 1 !« SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $4 b053 : ‘* CORPORAT{ DW. * 
3 ‘® * 
: $¢ $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 2 BS? 1 Ie ® 
; 0026 1 !* * 
: o7 QO27 1 eee ee eee eee REE AERA EATER AEA AREA ARERR EERE ERE 
:; 28 poss 1! 
: 9 0029 1 
0 0030 1 !++ | 
; 1 0031 1 ! FACILITY: Pascal Language Support 
; RT 7 4 
: 33 003 1 ! ABSTRACT: 
; 3 0034 1 
; * 0035 1! This module contains procedures which write a G_floating in 
3 38 sit] ' exponential notation to a textfile or string. 
: $3 st ! ENVIRONMENT: User mode = AST reentrant | 
: 40 0040 1 i AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
> 42 0042 i MODIFIED BY: | 
: 43 0043 1: 
: 644 044 1 ! 1-001 = Original. SBL 1-April-1981 
; rH 045 ! i] 1-002 - Make total-width a longword. SBL 30-June-1982 
: oF & 


— Oo 
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80S Decterat tens . 12788-1382 95:83:68 PXSRTL SaeiPAcUMTReG 6251 Ade 5 
XSBTTL ‘Declarations’ 


PROLOGUE DEFINITIONS: 


REQUIRE ‘'RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 
' 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
PASSWRITE_REALE_G: NOVALUE ' Write to textfile 
PASSWRITEV_REALE_G: NOVALUE; i write to string 


AAO 
MO DONOUSWN—O” 


| 

MACROS: | 

NONE | 

EQUATED SYMBOLS: 

NONE | 

FIELDS: | 

NONE | 

OWN STORAGE: 
NONE 


pw fw fala loleleleleleloleolelelelelelelolololelololololololeolololo) 
WEAN ANIA AIP PIPUNIPYNIPININIDYD 3 2 SIT 
NM OOWODNAUESWN —OOODNOULS WN 0 OO~IWN O00 


— 4 
at tt a os = ss ss  - SS 2 Vs = = SS SS YS 2d Ls YY I) YS 
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. 
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. 
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. 
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a 
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. 
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. 
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. 
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. 
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. 
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. 
o 


5 
PASSWRITE_REALE Write a G_floating in E format 1b-se 1984 02:22:49 AX-11 Bliss-32 V4.0-74 Page 3. 
ett PASSWR TETREALE.6 = Write G_floating in E forma 1 ~300n 138i 95:95:68 PASRTL..SRCIPASURIREG.B 2;1 . (3) | 
HG ZSBITL ‘PASSWRITE REALE G = Write G_floating in E format to textfile’ 
GLOBAL ROUTINE PASSURI E REALE_G ( | 
84 PFV: REF SPASSPFU_FILE-VARIABLE, ! File variable | 
85 VALUE _0, VALUE ' Value to write 
8 TOTAL-WIDTH: SIGNED, i Total field width | 
8 ERROR ! Error unwind address 
88 ): NOVALUE = 
8&9 | 
90 ee 
4 FUNCTIONAL DESCRIPTION: 
| 


This procedure writes a G_floating value in exponential notation 
to the specified textfile. 


CALLING SEQUENCE: 
CALL PASSWRITE_REALE_G fennon 1s VALUE.rg.v, TOTAL_WIDTH.*L.v 


SIDE EFFECTS: 
If the file is the standard file OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: | 


LINTOOLON = Line too Lone . : te 
NEGWIDDIG - negative Width or Digits specification is not allowed 


ete ee ee ee ee ee 


BEGIN | 


a 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
LOCAL 


eee ce el el ee ce ce ee ce ee ce ce ec ee ee ee ee ee ce ee ee ce ee ce cD cD ee ee cD ce ce cD ee eel ee ee eel el 
DWDOODOWOWO OW DO O09 09 09 00 09 09 09 BINNIE SNS AAA AAA AAA A MITT BBB PD 
OO NO UNE WP 0 OO NA UE WIND 9 OONOAU EWN [0 OONA UF WA O OONOYL FW" OVOONOUE Ww 


Be Be Be Be Se Se Be Se Se Se Se Be Se Be Be Ge Ge Ge Ge Ge Ge Fe Be Be Ge Se oe Fe Se SF Se Se FH Se Se Ft Be Se Se Se Se Se Se Se Ge Fe Se SES Ge ee Se Se Ge Se ee ee 


1 ERROR.j.rJ) 

: 1 FORMAL PARAMETERS: 

1 PFV - The Pascal File Variable (PFV) passed by reference. | 
; The structure of the PFV is defined in PASPFV.REQ. | 
1 VALUE - The G_floating value to write by immediate value. | 
: Note that this requires two argument List positions. 
TOTAL_WIDTH = Total field width. | 
' ERROR - Optional. Address to unwind to if an error occurs. | 
’ IMPLICIT INPUTS: 

: NONE 

\ IMPLICIT OUTPUTS: 
NONE | 
! ROUTINE VALUE: 

1 NONE 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


ONOUE 


DWN OE WR OOD NAME WIN "OC OONAUEWN —“"OOONOu 
fealolelelelelelalelelelelelalel aloo lolol ala lalalololaelaleleoleleleleleolololeleleloleolelelelolololeloloala! 


PASSURITE REALE Write 
1-002 PASSWRIT 


ate 
mcuvnmws OD 


o~- Dw 
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G_ float in E format 16-Sep-1984 02:22: AX-11 Bliss-32 V4.0-74 Pa 4 

P-REALE Go= Urite G floating in E forma e-se5-1984 $5589; PASRTL SRE SPASWRIREG 692: 1 e* «33 
: le control block 

WIDTH: SIGNED, } 

ximum w 
' 
1 


able argument 


COCO 
Wr—o 


ihe 
> 
oma 
on 


NG_WIDTH 
R: “VOLATILE 


oo 
rx 


49 
06 
! Fi 
: pin iaus/eq tut width 
pe dth 
: . n 
ACT: VOLATILE, Enable argument 
LE En 


D 
ROR_ADDR: VOLATI able argument 


Oo 
NOu 


BUILT 
A 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


N 
TUAL COUNT ; 


1+ 
Get ERROR parameter, if present. 


it - ieee () GEQuU 5 
ERROR_ADDR = .ERROR; ! Set unwind address 


a 
l 
| PFV_ADDR = PFV CPFVS$R_PFVI; ! Set PFV address 
; 


'¢ 


WR] OC ODBNAULS WP SO OONAUFSWNOV” 


! Validate PFV and get PFV. 


| 
| 
| 
| 
| 
| 
| 
PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); | 
| 
1+ 
Set unwind action to unlock file. 
UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
| 
| 
| 
| 
| 


+ 
Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 
1+ 


i Get field width and maximum width. Ensure that field width is not 
negative. 


SOONAUE WIN — O OONAOUES WN —$ O DONOULS WR OOO 


BRP FWA AIR PIPONINININPININIDD 2 OO OO SS OOOO 


MEW {=O OONOAUE WN —“OVOnOu 


PIPQPININDPYIAIPYNININPINYPINNYNYININININIPINYIPIPINIPYNIPUPUPOPPUNPINIPINPINPIPIPINPINPINIPIPIPINPIPY 


FIELD WIDTH = .TOTAL WIDTH; 
‘i gf TELD WIDTH LSS 0 


SPAS$IO_ERROR (PAS$_NEGWIDDIG,0); 
REMAINING_WIDTH = .FCB CFCBSA_RECORD.END) - .FCB CFCBSA_RECORD_CUR); 


oon 


'¢ 
: Do the convert. If it fails, give an error. | 


awww tat Bat tat ad edad ad a ead ad a ad edad ab ad ad ad ad edad ad adad ad 


SGDOSSOSOSOOCOSOOSOOSOOOSOSOSOSOSOOSOSOOSOSSSSSOSOOOOOCOOOOOCOOOOOOOOCOOS8 Oo 


PPA & 
OFWs OC OONOulswh— 


Ropoponoporoforfory 


MEW 


IF NOT PASSCVT_G_T (VALUE_O, ! Value to convert 


ec Ic EARS ) 
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PASSWRITE_REALE Write a G_floating in E format 1b-se -1984 02:22:49 AX-11 Bliss-32 V4.0-74 i 5) P 
1-002 PASSURITE“REALE. G-= Write G_floating in E forma 1 ta 1 98:85:42 ANSRYL SRE aPASUN TRG 68251 sa (3) | 1 
: 196 7 FCB CFCBSA_RECORD_CURI, ! Destination : 
; 19 8 FIELD_WIDTH, ! Min mun/ac tual width ; 
: 128 23 nen -REMAINING_WIDTH) ! Maximum width : 
; 90 0 61 SPASSIO_ERROR (PASS$_LINTOOLON,1,(.FIELD_WIDTH=.REMAINING_WIDTH)); 3 
i 38 8 big Re : 
P H vance e recor ointer. | P 
: 30 og : 
3 96 0 ¢ FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_CUR] + .FIELD_WIDTH; ; 
: 208 69 1+ : 
: 09 0270 ' Call WRITE epilogue routine to move the Last character written to the : 
: 9 8 re user's buffer and to unlock the file variable. ; 
: 21 027 ; 
; 18 9 rh PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB); | ; 
> 215 0276 RETURN; : 
; 216 0277 3 
; 217 0278 1 END; ! End of routine PASSWRITE_REALE_G : 
’ TITLE PASSWRITE_REALE.G Write a G_floating in E forma ; 
: .IDENT \1-002\ 3 
.EXTRN PASSWRITE_REALE_G : 
SEXTRN PASSWRITEV_REALE. G : 
EXTRN PAS$$10_HANDLER 3 
-EXTRN PASSSVACIDATE_PFV : 
SEXTRN PASSSINIT WRIT : 
.EXTRN PASSS$SIGNAL, PASSK_NEGWIDDIG ; 
“EXTRN PASSC PASS$K—LINTOOLON ; 
SEXTRN PASSSENB_ORITE ; 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 : 
01FC 00000 -ENTRY PASSWRITE_REALE_G, Save R2,R3,R4,R5,R6,R7.~ ; 0144 : 
58 000000006 00 9 00002 MOV PASSSSIGNAL, R8 : : 
5E 10 ¢ 00009 SUBL2 # P : : 
04 AE 7¢ 6999¢ CLRQ ERROR ADDR + 0197 ; 
OC AE 4 O000F CLRL PFV_ADDR ; : 
6D 0067 CF ODE O02 MOVAL 4$,7 (FP) : : 
05 6¢ 1 0001 CMPB p), # : 0217 : 
1F OOO1A BLSSU ; ; 
04 AE 14 AC 00 O00I1C MOVL ERROR, ERROR_ADDR ; 0219 ; 
56 04 aC DO 00021 1$: MOVL y > 0221 : 
Oc AE 36 D0 6 5 MOVL 6, PFV_ADDR ; : 
000000006 16 00029 JSB PASSSVACIDATE_PFV : 0227 : 
08 AE 1 pO 0002F MOVL #1, UNWIND A 3; 0233 3 
000000006 0 1 6 3 JSB PASSSINIT_ QRITE > 0239 : 
6E 10 Ac p C) MOVL §TOTAL_WIDTH, FIELD_WIDTH > 0246 : 
OA 90 D BGEO $ > 0247 : 
E D4 0003F CLRL = = (SP) > 0249 : 


PASSWRITE_REALE Wr ormat 
1-002 Ph G_floating in 


on COWOOVUWMOrFr>rr\'! 


> 
om WwR—MwOofonmuon 


win 

oo 

aANnNOO 
Oce!o 
Orurorrrr>r 
WOMWoOooo°on 


7E 
000000006 00 


; Routine Size: Routine Base: 


0279 1 
0280 1 !<BLF/PAGE> 


1 
E forma 1 
2 B98 
6 cB 
C 4 
D Gf 
» SL 
Rie 
F OOSA 
E B58) 
3, 0 re 
Bo Ronee 
FB page 
04 00071 
co Bote 
16 00076 
04 0007C 
00 0007D 
DO 0007F 
DO 00083 
9F 00087 
9F OO0BA 
9F 00080 
DD 00090 
DD 00092 
70 00094 
FB 00098 
04 0009F 


PASSCODE + 0000 


™~m 
wn 


MOVZBL 
CALLS 


1986 98:88:68 


AX-11 Bliss-32 iste’ ot 
PASRTL.SRCJPASWRIREG.B52;1 


#PASSK tat bt ha -(SP) 
#2, PASSSSIGNAL 


=20(FCB), -16(FCB), REMAINING_WIDTH 
REMAINING WIDTH 
FIELD WIDTH 


ober ) 

VALUE 

#4, PASSCVT_G_T 

REMAINING_WIDTH, FIELD_WIDTH, -(SP) 


#PASSK L INTOOLON, -(SP) 
#3, PASSSSIGNAL 


FIELD_WIDTH, -20(FCB) 
PASSSEND_WRITE 


Save nothing 
8(AP), RO 
4(RO), RO 
ERROR_ADDR 
UNWINB_ACT 


PFV_ADBR 
#3 


SP 
4(AP), =(SP) 
#3, PASS$IO_HANDLER 


-v 


Be Se Se Se Se Se Se Be Se Se Se Se Ge Ge Ge Fe Boe Fe Ge Fe Ge Ge Fe Fe Ge Fe Fe Fe Se 


. 
PASSWRITE_REALE Write a G floating in E format 16-Sep-1984 02:22: 
1-002 PASSWRITEV_REALE_G = Write G_floating in E form 14-Sep-19 4 95:88: 


ZSBTTL "PASSWRITEV_REALE_ G = Write G_floating in E format 
GLOBAL ROUTINE PASSURITEV_REALE 6 ( 


. W . 
STRING LINE : REF VECTOR C, wORD), 
VALUEO; VALUE 1 
TOTAL_WIDTH: SIGNED, 

ERROR 


) : NOVALUE = 


'o4 


FUNCTIONAL DESCRIPTION: 


This procedure writes a G_floating in exponential 
to the specified string. 


CALLING SEQUENCE: 
sing ht eg REALE 


po feofeololeoloiolo) 
oO SOOO0O00O0O0O0O0OMOCM MOCO QDCDCDCD 


NOME WN 9 OONAUES WN — O OONAUES WN (OOO NAUESWN $0 ODNAUE WN OUOONAULS Wh 


G 
LUE.rg.v, TOTAL_QIDTH.rl.v C, ERROR.j.rJ) 
FORMAL PARAMETERS: 


MOMIPOMONOfoNoNoNoND 


BN APueo ses 
WN — SO OONOUSWN “OO ONOAUSWN "OO DOONAUSWN—"OOONOULWR— 


“~N 


SIGNALLED ERRORS: 
See PASSWRITE_REALE_G 


a 
1 
1 
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1 
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1 
1 
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1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
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1 
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1 
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1 
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49 AX-11 Oh fegere oP a 
06 PASRTL.SRC JPASWRIREG.B352;1 


to string’ 


Maximum Length of string 
String to write to 

Value to write 

Total field width 

Error unwind address 


format 


(MAX LENGTH. rw.v, STRING_LINE.wvt.r, 


i 
i 
i 
0 i 
0 : 
0 : 
0 : 
0 ' 
030 ! 
030 ! 
B30 MAX_LENGTH = The maximum Length of STRING_LINE. 
O38 STRING_LINE - A varying string to which the output will be appended. 
030 : VALUE - The value to write, Note that the G_floating value 
030 : is passed by immediate value in two argument List 
$¢ oee } entries. 
23 3! TOTAL_WIDTH - The width of ihe field to write. 
25 031 ! ERROR - Optional. If specified, the address to unwind to 
25 031 ! in case of an error. 
25 031 ‘ 
25 031 ! IMPLICIT INPUTS: 
25 031 ! 
25 031 ! NONE 
25 031 : 
26 032 ' IMPLICIT OUTPUTS: 
26 032 ; 
26 032 ! NONE 
6 032 : 
64 O35 ! ROUTINE VALUE: 
65 : ! 
66 0 : NONE 
67 03 } 
68 83 ! SIDE EFFECTS: 
4 33 NONE 
0331 1 | 
033 : 
03 ! 
03 } 
: 
ge 
77 3 


Page 4 


eee 


F 
1 
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eA SWRITE_REALE 


SSSFSzs 


INA I Porononononononyg 


oooo 


WWAWNAWAA AAA AAINANAWNAAWAG 
uw 


WNC OONOUSWN—O0OOn 


G floating in E format 
PASSWRITEV_REALE_G = Write G_floating in E form 


SSN NN 
WO OONOUSWN—"OOOnNOu 


BEGIN 


LOCAL 
PFV: SPASSPFV_FIL 
ARG_LIST: VECTOR 
PFV-ADDR: VOLATIL 
UNWIND_ACT: VOLAT 
ERROR_ADDR: VOLAT 


BUILTIN 
ACTUALCOUNT; 


ENABL 


arate. 
LONGI, 


V 
E, 
E 


+ 
Get ERROR parameter, if present. 
IF ACTUALCOUNT () GEQU 6 
THEN 
ERROR_ADDR = .ERROR; 
PFV_ADDR = PFV CPFVSR_PFV]; 


1+ 
Set up ARG_LIST. 


ARG_LIST [0] = 4; 
ARG_LIST [1] = PFV CPFVSR_PFV); i 
ARG_LIST @] = .VALUEO; i 
ARG_LIST (3) = .VALUE1; i 
ARG_LIST (4) = .TOTAL_WIDTH; i 


14 
' Call PAS$$DO_WRITEV to do the work, 
PASSWRITE_REALE_G to call. 


PASS$DO_WRITEV (PFV L 
PASSWRITE_REALE_G); 

RETURN; 

END; 


5E C 


ge 
6D OOSE CF 
06 


E 
PASS$SIO_HANDLER (PFV_ADDR, UNWIND_ 


PFVSR_PFV], .MAX_ 


5 
=Sep-1984 02:22:49 AX-11 Bliss-32 V4.0-74 
meet 03:83:58 PASRTL. SRC JPASWRIREG.B 231 


Pascal File Variable 
Argument List 

Enable argument 
Enable argument 
Enable argument 


Count of arguments 


ACT, ERROR_ADDR); ! Enable error handler 


Set unwind address 
Set PFV address 


Four arguments 
PFV address 
Value to write 


Field width 


giving it the address of 


LENGTH, STRING_LINE CO), ARG_LIST, 


! End of routine PASSWRITEV_REALE_G 


.EXTRN PAS$S$DO_WRITEV 

SENTRY PASSWRITEV_REALE_G, Save R2.R3,R4,R5,R6 
SUBL2 

CLRL ERROR_ADDR 

UNWIND ACT 

$, (FP) 

CMPB. ss CAP), «#6 


0282 
0338 


0357 


eee eee 


4 ae 
pA SWRITE_REALE Write a ating in E f 16-Sep AX-11 Bliss-32 V4.0-74 Page 
2 PASEURITED A ALES - write. G G. floating in E form 14-Sep 71382 93: $3 :6¢ PASRTL SRE SPASWRIREG 882; 1 . 
04 IF 0 12 BLSSU.‘'1$ : 
bE 18 AC pO 14 VL ERROR, ERROR_ADDR : 
08 AE 20 A F 18 1$ MOVAB PFV, PFV_ADDR : 
o¢ A 0 1D #4, ARG_CIST : 
1 AE 20 AE 9E 0 1 MOVAB PFV, ARG_LIST+4 : 
14 AE C AC 70 9 6 MOVQ VALUEO, ARG_LIST+8 : 
Ts AE 14 AC 0 028 MOVL TOTAL_WIDTH; ARG_LIST+16 : 
5 FFaC CF 9E 000 9 OVAB PASSWRITE_REALE_G, : 
54 C AE 9E 000 MOVAB AR LIST, ~R4 : 
é 20 AE 4 00039 MOVAB R6 : 
3 8 AC 0030 OVL STRING LINE, R3 : 
2 04 ac C 00041 MOVZWL et ENGTH, R2 : 
000000006 06 16 00045 JS PASS DO_ ouRITEY : 
04 00048 RET : 
0000 4 98 2$: «WORD soye moeping ; 
50 08 ac 9 00 4 MOVL  8(AP), RO ; 
50 04 AO DO 0005 MOVL ECR). RO : 
DO AO 9F 00056 PUSHAB ERROR_ADDR : 
D4 AO 9F 00059 PUSHAB UNWINDB_ACT : 
D8 AO 9F 0005C PUSHAB PFV_ADB : 
03 DD 0005F PUSHL #3 ; 
5E DD 00061 PUSHL SF ; 
7E 04 AC 7D 00063 MOVQ 4 (AP), =(SP : 
000000006 00 03 FB 00067 CALLS #3, PASSSIO- HANDLER : 
04 0006E RET : 
; Routine Size: 111 bytes, Routine Base: _PASS$CODE + OOA0 


; 3s¢ 0384 1 
: 325 0385 1 !<BLF/PAGE> 


NS eeeeeeeeeeeeeee———————eEEeEEeEeEE————E—sS eee 


N 
eA SWRITE_REALE Write a G_ floating in E form 16S 
2 PASSURITED -REALE_G = Write c. “Treating in E form 14-S 


| ee Nae 


PSECT SUMMARY 


0 data bytes 
Lines/CPU Min: , 
Lexemes/CPU-Min: 


Memory Used: 80 p 
Compi.cation Complete 


00: 

Elapsed tae: 093 
12 

a 


SLSES/CRE ER OEP ELD, EET IM, OPT IME EES /UGTRACEAL Od, SSE 1PRSUR RES IOS ICR IS sPRTUA INES MSRC$:PASWRIREG/UPDATE=(ENHS: PASWRIREG 
| 
| 


5 
Sep-1984 AX-11 Bliss-32 v4.0 P 1 
5007 18Be 98:85:68 NSA ObheSpaguniace oS2-1 OF 


! End of module PAS$WRITE_REALE_G | 
| 


; Name Bytes Attributes 

: PASSCODE 271 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 

; cocceces Symbols ocoeeee- Pages Processing 

5 File Total Loaded "Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 

3 COMMAND QUALIFIERS 
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